﻿Public Class AddGroup

    Private Sub AddGroup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub brnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brnok.Click
        If txtgroup.Text.Trim = "" Then
            MessageBox.Show("Group Name can't be empty")
            txtgroup.Focus()
            Exit Sub
        End If
        cmd.Parameters("@group") = txtgroup.Text
        cmd.ExecuteNonQuery("INSERT INTO User_Type_Tbl VALUES(null,@group)")
        MessageBox.Show("Add New Group Success")
    End Sub
End Class